﻿Public Class DBSelector

   
    ''' <summary>
    ''' Bring up form to select database
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function selectDatabaseFromUI() As Boolean

        Using f As New frmSelectDatabase
            If f.ShowDialog = DialogResult.Cancel Then
                Return False
            Else
                If f.rbAIGIS.Checked Then
                    My.Application.CurrentDatabase = "AIGIS"

                ElseIf f.rbAKRITAS.Checked Then
                    My.Application.CurrentDatabase = "AKRITAS"

                Else
                    Return False
                End If
            End If

        End Using

        Return True

    End Function




End Class
